home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / bridge / dec.tex < prev    next >
Encoding:
Text File  |  1994-03-18  |  1.6 KB  |  70 lines
  1. %%%%%%%dec.tex%%%%%%%
  2. %Card definitions
  3. \def\s{$\spadesuit$}
  4. \def\h{$\heartsuit$}
  5. \def\d{$\diamondsuit$}
  6. \def\c{$\clubsuit$}  %cedille is not used
  7. %(Toks register) control sequences
  8. %for hands used by play macros:
  9. %showgame, pc, strip
  10. \let\NT\newtoks
  11. \NT\hnd%Dynamically one of:
  12. \NT\Ns\NT\Es\NT\Ss\NT\Ws
  13. \NT\Nh\NT\Eh\NT\Sh\NT\Wh
  14. \NT\Nd\NT\Ed\NT\Sd
  15.       \NT\Wd %Beware! Already
  16. %in TUGboat.sty in lower case
  17. \NT\Nc\NT\Ec\NT\Sc\NT\Wc
  18. %
  19. \def\english{
  20. %In central figure NESW
  21. \def\N{N}\def\E{E}\def\S{S}\def\W{W}
  22. %In heading bplay
  23. \def\NS{NS}\def\EW{EW}
  24. \def\TRICK{Trick}
  25. %Definition of hands
  26. %used by bbid
  27. \def\FIH{North}\def\SEH{East}
  28. \def\THH{South}\def\FOH{West}
  29. }% end \english
  30. \english%default
  31. %
  32. \def\LEADN{\gdef\FIP{N}\gdef\SEP{E}%
  33.           \gdef\THP{S}\gdef\FOP{W}}
  34. \def\LEADE{\gdef\FIP{E}\gdef\SEP{S}%
  35.           \gdef\THP{W}\gdef\FOP{N}}
  36. \def\LEADS{\gdef\FIP{S}\gdef\SEP{W}%
  37.           \gdef\THP{N}\gdef\FOP{E}}
  38. \def\LEADW{\gdef\FIP{W}\gdef\SEP{N}%
  39.           \gdef\THP{E}\gdef\FOP{S}}
  40. %Definition  of counters
  41. %used by bplay
  42. \newcount\trno%trick number
  43. %Definition of dimensions
  44. %used in bbid
  45. \newdimen\wr %width column
  46. \wr=7ex \relax
  47. \def\bidwidth{4\wr}
  48. %used in crdima
  49. \newbox\NESW
  50. %
  51. \def\dutch{
  52. \def\FIH{Noord}\def\SEH{Oost}
  53. \def\THH{Zuid}\def\FOH{West}
  54. \def\N{N}\def\E{O}\def\S{Z}
  55. \def\W{W}\def\EW{OW}\def\NS{NZ}
  56. \def\TRICK{Slag}
  57. \setbox\NESW\hbox{\NESWfig}
  58. }%end \dutch
  59. %
  60. \def\french{
  61. \def\FIH{Nord}\def\SEH{Est}
  62. \def\THH{Sud}\def\FOH{Ouest}
  63. \def\N{N}\def\E{E}\def\S{S}
  64. \def\W{O}\def\EW{EO}\def\NS{NS}
  65. \def\TRICK{Lev\'ee}
  66. \setbox\NESW\hbox{\NESWfig}
  67. }%end \french
  68. %end input dec.tex
  69. %
  70.